unit cmdAdjustMapToSelection;

interface

uses  classes, sysutils
    , nativeXml
    , appMappldXmlNode
    , appMappldXmlCommand
    , appMappldTypes
    , appMappldXmlContext
;

type
    {------------------------------ TCmdAdjustMapToSelection }

    {***************************************************************************
    * TCmdAdjustMapToSelection
    ***************************************************************************}
    TCmdAdjustMapToSelection = class( TMappldXmlCommand )
protected
    procedure   internalProccess(); override;
    end;

implementation

{*******************************************************************************
* internalProccess
*******************************************************************************}
procedure TCmdAdjustMapToSelection.internalProccess();
begin
    Fmappl.SetScreenMapForAllSelected( false, 0 );
end;

initialization

TMappldXmlCommand.registerCommandByCode( XML_CMD_AdjustMapToSelection, TCmdAdjustMapToSelection );

end.
